Filename | (eval 1143)[/usr/share/perl5/POSIX/strftime/Compiler.pm:351] |
Statements | Executed 0 statements in 0s |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
0 | 0 | 0 | 0s | 0s | __ANON__[:12] | POSIX::strftime::Compiler::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | sub { | ||||
2 | if ( @_ != 9 && @_ != 6 ) { | ||||
3 | Carp::croak 'Usage: strftime(sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1)'; | ||||
4 | } | ||||
5 | |||||
6 | if ( @_ == 6 ) { | ||||
7 | my $sec = $_[0]; | ||||
8 | @_ = gmtime Time::Local::timegm(@_); | ||||
9 | $_[0] = $sec; | ||||
10 | } | ||||
11 | 1 | 30µs | POSIX::strftime(q!! . '%z' . q!!,@_); # spent 30µs making 1 call to POSIX::strftime | ||
12 | } | ||||
13 | ; |